Attribute VB_Name = "CSERRLIT" Option Explicit ' OK Response Literals Global Const CS_RESP_OK = 1 Global Const CS_OK_LOW = 11 Global Const CS_OK_HIGH = 21 Global Const CS_OK_FATAL = 50 ' ABORT Response Literals Global Const CS_RESP_ABORT = 3 Global Const CS_ABORT_LOW = 13 Global Const CS_ABORT_HIGH = 23 ' RETRY Response Literals Global Const CS_RESP_RETRY = 4 Global Const CS_RETRY_LOW = 14 Global Const CS_RETRY_HIGH = 24 ' IGNORE Response Literals Global Const CS_RESP_IGNORE = 5 Global Const CS_IGNORE_LOW = 15 Global Const CS_IGNORE_HIGH = 25 ' YES Response Literals Global Const CS_RESP_YES = 6 Global Const CS_YES_LOW = 16 Global Const CS_YES_HIGH = 26 ' NO Response Literals Global Const CS_RESP_NO = 7 Global Const CS_NO_LOW = 17 Global Const CS_NO_HIGH = 27 ' Log Only Literal Global Const CS_LOG_ONLY = 0 ' VB Error Ease Disabled Literal Global Const CS_DISABLED = -1 ' ErrorTrap Action Argument Literals Global Const CS_ACTION_IGNORE = 0 Global Const CS_ACTION_DEFAULT = 1 Global Const CS_ACTION_LOGONLY = 2 Global Const CS_ACTION_MESSAGEONLY = 3